home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
conn173c.zip
/
RSB4CONN.MRG
< prev
next >
Wrap
Text File
|
1992-04-24
|
5KB
|
105 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB4.BAS to produce RBBSSUB4.NEW
* RBBSSUB4.BAS: Date 9-2-1991 Size 123727 bytes
* ------------[ Created 04-24-1992 12:45:52 ]------------
* REPLACING old line(s) by new
62620 ' $SUBTITLE: 'Transfer - Subroutine for external protocols'
' $PAGE
'
' NAME -- Transfer
'
' INPUTS -- PARAMETER MEANING
' ZTransferFunction = 1 DOWNLOAD FILE TO USER
' = 2 UPLOAD FILE TO RBBS-PC
' ZFileName$ NAME OF FILE FOR Transfer
' ZComPort$ NAME OF COMMUNICATIONS PORT
' TO BE USED BY KERMIT (COM1
' OR COM2)
* ------[ first line different ]------
' ZBPS = -1 FOR 300 BAUD
' = -2 FOR 450 BAUD
' = -3 FOR 1200 BAUD
' = -4 FOR 2400 BAUD
' = -5 FOR 4800 BAUD
' = -6 FOR 7200 BAUD
' = -7 FOR 9600 BAUD ' CONN173C
' = -8 FOR 12000 BAUD ' CONN173C
' = -9 FOR 14400 BAUD ' CONN173C
' = -10 FOR 19200 BAUD ' CONN173C
' = -11 FOR 38400 BAUD ' CONN173C
'
' OUTPUTS -- NONE
'
' PURPOSE -- To transfer files using external protocols
'
SUB Transfer STATIC
IF ZPrivateDoor THEN _
CALL PrivDoorRtn : _
EXIT SUB
IF ZTransferFunction = 1 THEN _
ZUserIn$ = ZDownTemplate$ : _
ZWasZ$ = "Send " _ ' TC090101
ELSE IF ZTransferFunction = 2 THEN _
ZUserIn$ = ZUpTemplate$ : _
ZWasZ$ = "Receive " ' TC090101
CALL MetaGSR (ZUserIn$,ZFalse)
CALL QuickTPut ("Protocol : " + ZProtoPrompt$,2) ' TC090101
CALL QuickTPut ("Ready to " + ZWasZ$,0) ' TC090101
IF ZBatchTransfer THEN _
CALL QuickTPut1 ("(BATCH)") : _
CALL OpenWork (2,ZNodeWorkFile$) : _
WHILE NOT EOF(2) : _
CALL ReadAny : _
CALL BreakFileName (ZOutTxt$,ZWasZ$,ZWasY$,WasX$,ZTrue) : _
CALL QuickTPut1 (" "+ZWasY$+WasX$) : _
WEND _
ELSE CALL QuickTPut1 (ZFileNameHold$)
IF ZAutoLogoffReq THEN _
CALL SkipLine (1) : _ ' TC090101
CALL QuickTPut1 ("Auto-Logoff After a Successful Download.") ' TC090101
CALL PrivDoorRtn
END SUB
* REPLACING old line(s) by new
62624 ' $SUBTITLE: 'PrivDoorRtn - subroutine to exit as a private door.'
' $PAGE
'
' NAME -- PrivDoorRtn
'
' INPUTS -- PARAMETER MEANING
' ZTransferFunction = 1 DOWNLOAD FILE TO USER
' = 2 UPLOAD FILE TO RBBS-PC
' = 3 USER REGISTRATION PGM
' ZUserIn$ NAME OF FILE TO EXIT TO
' ZComPort$ NAME OF COMMUNICATIONS PORT
' TO BE USED BY KERMIT (COM1
' OR COM2)
* ------[ first line different ]------
' ZBPS = -1 FOR 300 BAUD
' = -2 FOR 450 BAUD
' = -3 FOR 1200 BAUD
' = -4 FOR 2400 BAUD
' = -5 FOR 4800 BAUD
' = -6 FOR 7200 BAUD ' CONN173C
' = -7 FOR 9600 BAUD ' CONN173C
' = -8 FOR 12000 BAUD ' CONN173C
' = -9 FOR 14400 BAUD ' CONN173C
' = -10 FOR 19200 BAUD ' CONN173C
' = -11 FOR 38400 BAUD ' CONN173C
'
' OUTPUTS -- NONE
'
' PURPOSE -- To transfer control to another program
'
SUB PrivDoorRtn STATIC
IF ZPrivateDoor THEN _
GOTO 62630
IF ZFakeXRpt THEN _
CALL FakeXRpt (ZWasFT$)
IF ZAdvanceProtoWrite THEN _
CALL OpenOutW ("XFER-"+ZNodeID$+".DEF") : _
IF ZErrCode < 1 THEN _
CALL PrintWorkA (ZFileName$+",,"+ZWasFT$) : _
CLOSE 2
IF ZProtoMethod$ = "S" THEN _
GOTO 62629